﻿Partial Public Class frmAdminCommsMenu

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub btnManageEmailTemplates_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnManageEmailTemplates.Click
        Dim emailTemplates As New frmAdminEmailTemplates()
        emailTemplates.ShowDialog()
    End Sub

    Private Sub btnStockLetterSets_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnStockLetterSets.Click
        Dim stockLettelrSets As New frmAdminStockLetterSets
        stockLettelrSets.ShowDialog()
    End Sub

    Private Sub btnLetterRegistration_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnLetterRegistration.Click
        Dim formLetterRegistration As New frmAdminLetterRegister
        formLetterRegistration.ShowDialog()
    End Sub

    Private Sub frmAdminCommsMenu_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        GeneralTasks.ChangeTheme(Me)
        GeneralTasks.EnumerateandFill(Me.LogicalChildren)
    End Sub

    Private Sub btnManageEmailAutomation_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnManageEmailAutomation.Click
        Dim frmAdminEmailAutomation As New frmAdminEmailAutomation
        frmAdminEmailAutomation.ShowDialog()
    End Sub

    Private Sub btnLetterPacks_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btnLetterPacks.Click
        Dim frmLetterPacks As New frmAdminLetterPacks
        frmLetterPacks.ShowDialog()
    End Sub
End Class
